﻿Public Class Inventory_ErrorReadingFromFile_Exception
    Inherits System.Exception
    Private mFileName As String

    Property _FileName As String
        Get
            Return mFileName
        End Get
        Set(ByVal value As String)
            mFileName = value
        End Set
    End Property
    Public Sub New(ByVal pFileNam As String)
        MyBase.New()
        _FileName = pFileNam
    End Sub
    Public Overrides Function ToString() As String
        Dim tmpStr As String
        tmpStr = _
            "( INVENTORY ERROR_READING_FROM_FILE EXCEPTION: " _
            & "Filename=" & _FileName _
            & " )"

        Return tmpStr
    End Function
End Class
